home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / CALEND / calen14.dir / 00005_Script_be_timer < prev    next >
Text File  |  2002-09-19  |  1KB  |  53 lines
  1. ---SA-----1709
  2.  
  3. property pSprite,pFin
  4. global gListe_Pistes_Occupees,gListePistes
  5.  
  6. ---- rotation de l'aiguille en utilisant le timer comme incrΘment
  7. --------------------------------------------------------------------
  8. on beginsprite me
  9.   pfin = false
  10.   psprite = sprite(me.spritenum)
  11.   startTimer 
  12.   the floatprecision = 1
  13.   --les n░ de pistes occcupΘes sont enregistrΘes dans la liste suivante
  14.   gListe_Pistes_Occupees = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] 
  15. end
  16.  
  17. --------------------------------------------------------------------
  18. on exitFrame me
  19.   angle = the timer/120.0
  20.   --  put angle
  21.   if angle <= 60 then
  22.     ---
  23.     if gListe_Pistes_Occupees = glistePistes then
  24.       me.mFinDeJeu()
  25.       exit
  26.     end if
  27.     ----
  28.     psprite.rotation = psprite.rotation + 0.20
  29.   else
  30.     me.mFinDeJeu()
  31.   end if   
  32. end
  33.  
  34. -----------------------****************************------mΘthodes privΘes
  35. on mFinDeJeu me
  36.   --  
  37.   if gListe_Pistes_Occupees <> glistePistes then  
  38.     soncyber 2
  39.     cursor -1   
  40.     go "rejouer" 
  41.   else
  42.     soncyber 3 
  43.     -- -- tempo avant de passer α l'Θcran suivant
  44.     startTimer
  45.     repeat while the timer < 2 * 60
  46.       updatestage
  47.     end repeat
  48.     niveauSon()
  49.     go "Mots Nouveaux"
  50.   end if  
  51. end
  52.  
  53.